home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / toastpresenter.rexx < prev    next >
OS/2 REXX Batch file  |  1993-06-06  |  2KB  |  42 lines
  1. /* ToastPresenter.rexx, Uses GPI trigger to run interactive presentations */
  2. /* By Arnie Cachelin © 1992 NewTek Inc. */
  3.  
  4. /*
  5.     This program will display ALL the frames in the current FrameStore
  6.     directory in a slideshow manner, using whatever transition is currently
  7.     selected.  It waits for input from the GPI trigger so you can control your
  8.     your  presentation  slideshow  style.  You can easily give your Toaster
  9.     GPI pulses by attaching a spare mouse or joystick to the second mouse
  10.     port then clicking the button.  You can also find long joystick extender
  11.     cables at places like Radio Shack.  You may want to move the frames you
  12.     plan to show to another framestore directory, like RAM:, so that the
  13.     presentation can loop, without displaying unwanted images.
  14.  
  15.         I haven't thought of an easy way to go back a slide, which would be pretty
  16.         useful... I guess you should just have the keyboard handy, and not use this
  17.         program at all if you will need to backtrack.  Since the program waits on
  18.         the GPI trigger, the Toaster will not respond to anything 'til all the frames
  19.         have been displayed.
  20. */
  21.  
  22. OPTIONS RESULTS
  23. TOASTERLIB="ToasterARexx.port"
  24.  
  25. IF SHOW('Libraries',TOASTERLIB) THEN
  26.   IF ~ADDLIB(TOASTERLIB , 0) THEN x=Bummer(" Me No Find Toaster Library!")
  27.  
  28. Switcher(TOSW)
  29. Switcher(SGPI,POS)    /* Set GPI trigger to positive (leading edge of pulse) */
  30. Switcher(MDV1)        /* put Program and Preview outputs on framestores */
  31. Switcher(PDV2)
  32. N=Switcher(STAT,KNUM) /* Get the current keypad number, so we know where we started */
  33. Switcher(KEYP)        /* hit the '+' key */
  34. DO WHILE Switcher(STAT,KNUM)~=N   /* Go until we return to the starting frame */
  35.   Switcher(DOEN)    /* hit enter key to load */
  36.   Switcher(KEYP)    /* hit the '+' key */
  37.   Switcher(WAIT,GPI)    /* Wait for GPI trigger to come in */
  38.   Switcher(AUTO)    /* Do whatever transition is selected */
  39. END
  40. Switcher(TOWB)
  41.  
  42.